MS
Access auf dem Web
Der folgende Code kombiniert HTML und VBScript. HTML ist blau, VBScript braun und Kommentar grün. Von den fünf ASP-Objektklassen verwendet VBScript die Klassen Server und Response. Kursiv angezeigte Anweisungen stammen aus dem Befehlsvorrat von ADO. ASP+ ist eine Erweiterung von ASP und bietet die Möglichkeit mit VBScript oder einer Programmiersprache wie Visual Basic oder C++ Active Server Pages zu erstellen, die eine Vielfalt vor- und benutzerdefinierter Steuerelemente zur Eingabe/Ausgabe und zur Datenanbindung nutzen können.
<%@ LANGUAGE="VBScript" %> <% Option Explicit %> <HTML> <HEAD><TITLE>Kundenanzeige.asp</TITLE></HEAD> <BODY bgColor=#87ceeb>
'-- 1. Benannte Konstanten und Datenbankverbindung (connection string) einlesen
<!--#include file="ADOKonstanten.asp"--> <!--#include file="ADOVerbindung.asp"--> <H1>Kundenanzeige</H1>
'-- 2. Recordset (rst) erstellen
<%
'Variablenvereinbarung obligatorisch (option explicit)
Dim Verbindung
Dim rst
Set Verbindung = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
'ADOVerbindung ist eine Stringvariable mit DBMS-Typ/Pfad/Passwort aus ADOVerbindung.asp
Verbindung.Open ADOVerbindung
rst.Open "KUNDEN", Verbindung, adOpenForwardOnly, adLockReadOnly, adCmdTable
'-- 3. Recordset durchlaufen und Sätze in einer Tabelle anzeigen
If rst.EOF Then
Response.Write "Keine Kundensätze gefunden"
Else
%>
'Tabellenkopf (Table Row aus Table Header cells)
<TABLE BORDER=2>
<TR>
<TH>Kundennr</TH>
<TH>Vorname</TH>
<TH>Geschlechtsname</TH>
<TH>Stadt</TH>
<TH>Kanton</TH>
</TR>
<%
Do While Not rst.EOF
%>
'Tabellenzeile (Table Row aus Table Data cells)
<TR>
<TD><%=rst("Kundennr")%></TD>
<TD><%=rst("Vorname")%></TD>
<TD><%=rst("Geschlechtsname")%></TD>
<TD><%=rst("Stadt")%></TD>
<TD><%=rst("Kanton")%></TD>
</TR>
<%
rst.MoveNext
Loop
%>
</TABLE>
<%
End If
Set rst = Nothing
Set Verbindung = Nothing
%>
<P>
'Hypertext Reference auf das Hauptmenü
<A HREF="AspMenu.asp">Zurück zum Menü</A>
</BODY>
</HTML>